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Abstract 

We revisit the connection between three notions of computation: Moggi's monads, Hughes's arrows and 
McBride and Paterson's idioms (also called applicative functors). We show that idioms are equivalent to 
arrows that satisfy the type isomorphism A~> B ~ 1 — ► (A — » B) and that monads are equivalent to arrows 
that satisfy the type isomorphism A~-> B ~ A —* (1~» B). Further, idioms embed into arrows and arrows 
embed into monads. 
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Fig. 1. Idioms, arrows and monads 



1 Introduction 

Assumptions and guarantees 

The Internet Robustness Principle states [10] 

Be conservative in what you do; be liberal in what you accept from others. 

In other words, robust systems make the weakest possible assumptions about 

input and give the strongest possible guarantees about output. Programs that 

accept only integers are less flexible than programs that accept all kinds of number. 

Contrariwise, programs that may output any kind of number are less flexible than 

programs that are guaranteed to output only integers. 
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To follow the principle we need to know which sets of values generalise which 
other sets. While there are certainly more numbers than integers, the ordering is not 
so obvious at higher-order types, such as function and computation types. Can a 
program that manipulates arrow computations be made more flexible by specifying 
that the input must be an idiom rather than an arrow? Can a library that exposes 
an idiom instance be made more flexible by exposing an arrow instance instead? 
In his original work on arrows [1], Hughes shows how each monad gives rise to 
an arrow, and gives an extended arrow interface, ArrowApp, that is equivalent to 
the monad interface. In their later work introducing idioms (also called applicative 
functors) [5], McBride and Paterson show how to obtain an idiom from either a 
monad or an arrow, and how to combine an idiom and an arrow to yield another 
arrow. However, the precise relationship between the three notions of computation 
has remained obscure. In particular, McBride and Paterson informally describe 
idioms as 

an abstract notion of effectful computation lying between Arrow and Monad in 
strength 

which we show in the following pages to be mistaken: idioms are, in fact, weaker 
than both arrows and monads. The diagram in Figure 1 gives a high-level view of 
the situation: idioms correspond to a language which may be extended to obtain 
arrows; a further extension yields a language corresponding to monads. 
The main contributions of this paper are: 

(i) A presentation of idioms, arrows and monads as variations on a single calculus. 

(ii) A precise characterisation of the relationship between the three notions of 
computation which shows that, in contrast to the folklore ordering, idioms are 
less powerful than arrows. 

The remainder of this paper is organised as follows. Section 2 introduces the 
notion of equational equivalence, a generalisation of equational correspondence [11]. 
Section 3 defines standard equational theories corresponding to idioms, arrows and 
monads, and a more convenient equational theory for arrows which highlights how 
arrows meticulously maintain the distinction between terms and commands. Sec- 
tion 4 gives an informal comparison of the expressive power of the three notions 
of computation by means of an example. Section 5 presents idioms as a variant of 
arrows, characterised by either a type isomorphism or an additional equation, in 
which commands are oblivious to input. Section 6 presents monads as a variant of 
arrows, characterised by either a type isomorphism or an additional operator and 
accompanying equations, which allay the distinction between terms and commands, 
resulting in a promiscuous admixture. Section 7 concludes. 

2 Preliminaries 

Definition 2.1 A typed equational theory T consists of the following 

• variables x,y,z 

• types A, B, C 
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• terms L, M, N 

• type environments V ::= ■ \ x : A,T 

• typing judgements T \~t M : A 

• equational judgements T \~t M = N : A 

Equational judgements must be well- formed: if T M = N : A then T 
M : A and r N : A. We present the equational judgements via laws relating 
terms, writing M = N as shorthand for r M = N : A for all T, A in T such that 
T M : A and F \~t N : A. The equational theory is defined as the contextual 
and equivalence closure of the laws. 

Definition 2.2 Let T be an equational theory with typing judgements x : A / : 
B and x : B f~ l : A. (These typing judgements can be viewed as translations 
on terms: / from A to B and / _1 from B to A. For convenience, we write f{M) 
for /[x := M] and f~ 1 (N) for := iV].) We say that A is isomorphic to -B and 

/, f^ 1 witness the isomorphism (/ : A ~ B) if 

• Translating from A to -B and back is the identity, 

Th T f-\f(M))=M:A 

for all r \~t M : A in T. 

• Translating from B to A and back is the identity, 

Th T f(f- 1 (N)) = N:B 

for all T h T TV : B in T. 

As all of the theories we consider include function types and lambda abstractions, 
we choose to express the isomorphisms more concisely as pairs of closed terms 
/ : A — ► B and f^ 1 : B — ► ^4 rather than typing judgements x : A \~t f : -B and 
x-.Bhrf- 1 : A. 

Definition 2.3 Let S 1 , T be equational theories, with a compositional translation 
on terms and types [— ] from S to T that preserves typing, 

r h 5 M : A implies [T] h T [M] : {A} 

for all r, M, A in S 1 , and with a compositional inverse translation (— ]) from T to S 
that also preserves typing, 

r h T M : A implies (T) h 5 {M} : (A]) 

for all T, M, ^4 in T. Further, translating a type from S to T and back yields a type 
isomorphic to the original type, 

f A : A ~ ([A]) 

for all ^4 in S 1 . Similarly, translating a type from T to S and back yields a type 
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isomorphic to the original type, 

g A : A ~ {{A}} 

for all A in T. We say these translations form an equational equivalence (S ~ T) if 

• The translation from S to T preserves equations, 

r \- s M = N : A implies [r] h T {Mj = [AT] : [A] 

for all r, M, N, A in S. 

• The translation from T to S preserves equations, 

Th T M = N :A implies {T} h s {M} = {N} : {A} 

for all T,M, AT, A in T. 

• Translating from S to T and back yields a term isomorphic to the original term, 

Th s M:A implies T h s {[Mj)\T : = f(T)} = f A (M) : {{A}} 

for all r,M,^ in S (writing JV[T := /(r)] for N[ Xl := f Al ( Xl ),...,x n : = 
fA n (x n )\, given T = x\ : A x , . . . ,x n : A n ). 

• Translating from T to 5 and back yields a term isomorphic to the original term, 

Th T M:A implies T h T [flM)][T := ff (T)] = g A (M) : [(A)] 
for all r, M, A in T. 

(This definition amounts to saying that we have an equivalence of categories [3], 
where [— ] is left adjoint to {—} with unit f A and counit g^ 1 -) 

The special case of an equational equivalence where both isomorphisms are the 
identity is an equational correspondence. 

Definition 2.4 An equational correspondence between theories S and T {S = T) 
is an equational equivalence with translations [— ] : S — > T, {—} : T — > S where 
both f A and g A are the identity at each type A. (This amounts to saying that we 
have an isomorphism of categories [3] given by the translations [— ] : S — * T and 
{-}:T^S.) 

We also introduce the notion of equational embedding, a map from a weaker into 
a stronger theory. An equational embedding of a theory S into a theory T may be 
defined as an equational equivalence between S and a subtheory of T. We instead 
use the following more direct definition, which is more convenient in practice. 

Definition 2.5 Let S,T be equational theories with a compositional translation 
on terms and types [— ] from S to T that preserves typing, 



r \- s M : A implies [r] h T [M] : [A] 
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for all r, M, A in S, and with a compositional inverse translation {—} from IS} to 
S that also preserves typing, 

[I! h T [Ml : {A} implies ([T]) h s ([M» : {{A}} 

for all r, M, A in £. Further, translating a type from S to T and back yields a type 
isomorphic to the original type, 

f A : A ~ «A» 

for all ^4 in 5. We say these translations form an equational embedding of S into T 
{S ^ T) if 

• The translation from S to T preserves equations, 

r h? M = iV : A implies [r] h T [M] = [iV] : [A] 

for all r, M, iV, A in S. 

• The translation from \S\ to 5 preserves equations, 

F] h T [Mj = [Nl : lAj implies «T» h 5 «M» = «iV» : 

for all T,M, JV, A in 5. 

• Translating from S to [[5]] and back yields a term isomorphic to the original term, 

Th s M:A implies T h s «Mj>[r := /(r)] = /a(M) : 
for all r, M, A in S. 

3 Theories 

This section outlines theories for simply-typed lambda calculus extended with pairs 
and unit: A^ xl , idioms: X, monads: M and two different theories for arrows: C 
and A. 

Figure 2 (page 7) gives a standard definition of the theory of typed lambda 
calculus extended with pairs and unit, A~^ xl . We use this definition as a starting 
point for each of the theories which follow. For convenience we define a number of 
functions, such as id. 

Figure 3 (page 8) defines the theory of idioms, X [5]. Idioms extend A~ >xl with a 
unary type constructor I for computations of type I A which return a value of type 
A. There are two constants: pure, which takes a value and constructs a computation 
which returns the value, and ((g>), which combines two computations, applying the 
value returned by the first to the value returned by the second. There are four 
laws which, together with the laws of the lambda calculus, define the equivalence 
relation of the theory. For idioms to serve as a useful programming language we 
would additionally need constants for constructing basic computations. These play 
no significant role in the theory, so we omit them here. 



5 



LlNDLEY, WADLER AND YALLOP 



Syntax 



Types A, B, C ::= B | 1 | AxB \A^B 

Terms L, M, JV ::= x \ () \ (M, N) | fst L | snd L \ Xx. N \ L M 

Environments T ::= X\ : A\, . . . , x n : A n 



Types 



(x : A) e r 



r h 0 : 1 



F h x : A 

Fh M : A r h N : B 
T h (M, N) : AxB 

T, x : Ah N : B 



r h L : ixB 



r h L : AxB 



Th Xx.N : A^ B 
Definitions 



id : 


A^A 


(x) 


id = 


Xx. x 


(x) 


dup : 


A -► AxA 


(•) 


dup = 


Xx. (x, x) 


(•) 


swap : 


AxB -> BxA 


(;) 


swap = 


Xz. (snd z, fst z) 


(;) 


fst : 


,4x5 -► ^ 


assoc 


fst = 


Az. fst 2 


assoc 


snd : 


AxB -► 5 


apply 


snd = 


Az. snd z 


apply 



r h fst L : A r h snd L : B 

Fh L: A^ B Th M : A 
Th L M : B 



(A^C)^(B^ D)^ {AxB -► CxL>) 
A/. Xg.Xz.(f (fst z),# (snd z)) 

(5 -► C) -»• (A -»• 5) ->■ (A ->■ C) 
A/. Ag. Ax. / (5 x) 

(A -> B) -> (B -> C) -> (A -> C) 
A/. Xg.Xx.g (f x) 

(AxB)xC -► ix(BxC) 



Az. (fst z (snd z)) 



Laws 



(#) 


fst (M, iV) 


= M 


(/?2 X ) 


snd (M,iV) 


= iV 


(r?x) 


(fst L, snd L) 


= L 




(Ax.iV) M 


= N[x := M] 


(»T) 


Ax. (L x) 


= L 




0 


= M 



Fig. 2. Lambda calculus, A^ xl 
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Syntax 



Types A,B,C 



I A 



Constants 



pure : A — > I A 
(®) : I(A^B) 



I A 



IB 



Laws 



(Ii) 

(12) pure f (8> pure p = 

(1 3 ) u <g> (1; <g> it;) = 

(14) u 0 pure x = 



pure id® u 
pure (/ p) 

pure (•) ® u (8) u ® w 
pure (A/, f x) ®u 



Fig. 3. Idioms, X 



Figure 4 (page 8) defines the theory of arrows [1,8], C, which (following [4]) we 
refer to as classic arrows. Classic arrows extend A^ xl with a binary type construc- 
tor ~> for computations with input and output and three constants for creating and 
composing computations. The first constant, arr, constructs a computation from 
a function. The second, combines two computations, passing the output of 

the first as input to the second. The third, first, transforms a computation to pass 
through additional data untouched. These primitives make it possible to construct 
a wide range of combinators for computations. Finally, there are nine laws which, 
together with the laws of the lambda calculus, define the equivalence relation of the 
theory. 

Figure 5 (page 9) defines the arrow calculus A [4]. Arrow calculus extends A^ xl 
with four constructs satisfying five laws. As with C, the type A~~> B denotes a 
computation that accepts a value of type A and returns a value of type B, possibly 
performing some side effects. There are now two syntactic categories: terms, ranged 
over by L, M, N, and commands, ranged over by P, Q, R. In addition to the terms 
of X~ >x , there is one new term form: arrow abstraction X'x.Q. There are three 
command forms: arrow application L» M, arrow unit [M] (analogous to arr), and 
arrow bind let x = P in Q. 

In addition to the term typing judgement T h M : A we now also have a 
command typing judgement 



Similarly, in addition to the equational judgement on terms T h M = N : A we now 
also have an equational judgement on commands 



(In specifying the laws we write P = Q as shorthand for r; A h P = Q ! A for all 
T,A,A such that T; A h P I A and T; A \- Q \ A.) An important feature of the 
arrow calculus is that these judgements have two environments, T and A, where 
variables in T come from ordinary lambda abstractions Ax. N, while variables in A 
come from arrow abstractions X'x.Q. The meticulousness of the title refers to the 



T; Ah P ! A. 



T; A h P = Q ! A. 
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Syntax 

Types A, B,C ::=••• | A~~> B 

Constants 

arr : (A ^ B) -> 5) 
(»>) : (.4^5) -» (£^£7) -► (A~>C) 
/?rst : (4~>.B) -» (AxC^BxC) 

Definitions 

second : (A~~> B) ^ (CxA~~> CxB) 

second = A/, arr swap y>>> first f y>>> arr swap 

(Mi) : (C^A)^(C^B)^(C^AxB) 
(Mi) = A/. Ag. arr dup »> first f ^£>> second g 

Laws 



Hi) 


arr id >;$> / = 


f 


H 2 ) 


/ ;^$> arr id = 


f 


(-3) 


(/ »> g) »> h = 


f »> (g »> h) 


(~»4) 


arr (g ■ f) = 


arr f y?>> arr g 


(-5) 


first (arr f) = 


arr (f x id) 


He) 


/iraf (/ »> g) = 


first f y>>> first g 


(«s* 7 ) 


first f y>>> arr (id x g) = 


arr (idx g) yt>z> first f 


Hs) 


first f ^5>> arr fst = 


arr fst y>>> f 


He) 


first (first f) ^>> arr assoc = 


arr assoc »> first f 



Fig. 4. Arrows, C 



careful maintenance of this distinction in the typing rules. 

Figure 6 (page 9) defines the theory of monads, Ai [7]. Like idioms, mon- 
ads extend A^ xl with a unary type constructor M for computations of type MA 
which return a value of type A. The constant return is analogous to the idiomatic 
pure, while »= constructs a computation from a computation and a computation- 
constructing function, supplying the value returned by the former as argument to 
the latter. (We might just as well have used Moggi's computational metalanguage [7] 
instead of adding constants to C, but we chose to define constants for consistency 
with our treatment of idioms and classic arrows.) 

We find it convenient to use the arrow calculus rather than classic arrows as a 
basis for comparison. The following result allows us to move freely between the two 
theories. 

Proposition 3.1 The theories of arrow calculus and classic arrows are in equa- 
tional correspondence: A = C. 

(Here and throughout we elide the definition of the homomorphic translations on 
terms of the lambda calculus.) 
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Syntax 



Types 



Types A, B, C 

Terms L, M, N 

Commands P,Q,R 



V; x : A h Q ! B 
T h X'x.Q: A~^B 



•••| A^-P 
•••| A'x.Q 

L • M | [M] | let x = P in Q 

rhi:i^fi r,AhM:i 
T: A\- L • M \ B 



T, A h M : A 
r; Ah [M] ! A 

T; Ah PI A T; A, x : Ah Q \ B 



Laws 





T; A h let x = P in Q ! P 




(/n 


(X'x.Q) • M = Q[z:= 


M] 


(»r) 


A*x. (L • x) = L 




(left) 


let x = [M] in Q = Q[x := 


M] 


(right) 


let x = P in [x\ = P 




(assoc) 


let y = (let x = P in Q) in P = let x = 


P in 



Syntax 



Constants 



Laws 



Fig. 5. The arrow calculus, A 

Types A,B,C ::=•■■ \ MA 

return : A — > M A 
(»=) : M A ^ (A MB) -> MB 

(Mi) return a / = / a 

(M2) m »= return = m 

(M 3 ) (m »= k) »= h = m (Ax. A; x 

Fig. 6. Monads, 
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Arrow calculus to classic arrows: 



{Aj = A 
[A"x.Q] = [Q] x 



where 



[r;AhP!i]=rh[P] A :A^i 

[L • M] A = arr (AA. [M]) »> [Lj 
[[M]] A = arr (AA. [M]) 
[let x = P in Q] A = (arr id Mi [P] A ) »> [QJa,* 



Classic arrows to arrow calculus: 



{A} 
{arr} 

«»>)> 



.4 

A/. A'x. [/ x] 

A/. Ag. A'x. let y = / • x in 5 • y 

A/. A* z. let x = f • (fst z) in [(x, snd z)] 



Further details may be found in [4]. Note that despite the special form of typing 
judgement for commands, we do not need to generalise our definition of equational 
correspondence as we only care about equational correspondence between terms. 
However, the proof [4] does rely on showing a correspondence property involving 
commands: T h {[P}a} = A' A. P : A~> A. 

Note that an arrow calculus term judgement maps into a classic arrow judgement 



while an arrow calculus command judgement maps into a classic arrow judgement 



I n [-PJaj we take A to stand for the sequence of variables in the environment, 
and in A ~> A we take A to stand for the left-nested product of the types in the 
environment. The denotation of a command of type A is an arrow whose arguments 
correspond to the environment A and whose result has type A. 

The translation uses the notation AA. N, which is given the obvious mean- 
ing: Xx.N stands for itself, \xi,X2-N stands for Xz.N[x\ := fst z,X2 := snd z], 
Axi, X2, X3. ./V stands for Xz. N[x\ := fst (fst z), X2 := snd (fst z), X3 := snd z], and so 
on. 

4 Example 

We now turn to an informal comparison of idioms, arrows and monads, in order to 
illustrate the relative expressive power of each before returning to a more formal 
investigation in Sections 5 and 6. 



r h M : A maps to T h [M] : A 



T; Ah PI A maps to fh [P] A : A ~» A. 
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In Section 3 we presented the theories of idioms, arrows and monads. However, 
in actual programs we do not simply use monads, arrows or idioms in the abstract, 
but particular instances of these interfaces in which the type expressions A ~» B, 
MA or I A denote concrete types. For example, we can use the well-known state 
monad with integers as the encapsulated state by instantiating MA to the type 
Int — > IntxA and providing additional constants for reading and writing the state: 



(We give a slightly non-standard type for get in order to simplify the translation to 
arrows and idioms in what follows. The type of our get is isomorphic to the more 
common Mint and the behaviour of our get {} identical to that of the standard get.) 
We can then use these constants along with the standard monad operators return 
and (>?>=), to write programs such as the following, which uses the encapsulated 
state to generate fresh names (given a type of names Name and a name-construction 
function makeName : Int — ► Name): 

freshName : M Name 

freshName = get () y>*= As. put (s + 1) yz?= Xu. return (makeName s) 

or the following, which branches on the current state in order to choose which of 
two computations to execute: 



We can obtain an arrow from the state monad using the standard Kleisli con- 
struction [1], setting A~~> B to A —> MB: 



get : 1 M Int 
put : Int ->• Ml 



if Zero : (M AxM A) -»■ M A 

ifZero = Xk. get (} »= As. if s = 0 then fst k else snd k 



or the following, which reads, transforms and returns the current state: 



getTransformed : {Int—* A) — > MA 
getTransformed = A/, get () »= As. return (/ s) 




arr 



arr 



(A-> B) -> (A^B) 
A/. Xa. return (/ a) 

[A^B) -► (B^C) -» {A^C) 
Xf. Xg. Xa. f a »= g 

{A^B) -► (AxC^BxC) 

Xf. Xa. f (fst a) ^>>= Xb. return (b, c] 
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The constants get and put now have the following types 

get^ : 1 ~> Int 
put^ : Int^y 1 

and we can use them to write an arrow equivalent of freshName: 
freshName^, : 1 ~> Int 

freshName^ = get^ »> arr (Ax. (x + 1, x}) ^5>> first put^ >;$> arr snd 
or an arrow equivalent of getTransformed: 

getTransformed^ : (Int — > A) — > 1 ~> A 
getTransformed^ = A/, (get^ arr /) 

However, there is no way to write an arrow equivalent of ifZero. This is due to 
the "first-orderness" of arrows: the arrow interface does not provide a method for 
running a computation received as input. Similarly, we can obtain a state idiom 
from the state monad using standard techniques [5], setting I A to MA: 

pure : A — > / A 

pure = return 

(<g>) : I{A^B) -» {IA^IB) 

(<8>) = A/. Ap. / ;s>= Ag.p >Sa= Ag. return (g q) 

The constants get and put now have the following types 

getj : 1 — ► I Int 
putj : Int —* II 

and we can use them to write getTransformed idiomatically: 

getTransformed j : {Int^ A) — ► I A 
getTransformedj = Xf. pure f (8> getj {) 

However, we cannot write either freshName or ifZero using the idiom operations 
since, as we show in the next section, the idiom interface does not provide a means 
for one computation to depend on the value returned by another. The putj func- 
tion is therefore much less useful than its monad and arrow counterparts, since its 
argument cannot be a value arising from the computation of which it forms part. 

Since monads are the most powerful of the three notions, the question naturally 
arises whether it might not be better to use monads in every case. In fact, it is 
precisely because monads are more expressive that they are not suitable for every 
situation: they offer more to users, but demand more of implementers. There are 
consequently many interesting instances of the idiom and arrow interfaces which do 
not satisfy the more stringent requirements for monad instances [1,2,5,8,9]. 
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5 Relating idioms and arrows 

In order to compare idioms and arrows we formalise static arrow computations. 
First, we describe a variant of classic arrows that supports static computation Cs 
by adding an extra constant and two laws. Then, we introduce a variant of the arrow 
calculus, static arrows S, by adding one command and three laws. We show that Cs 
and S are in equational correspondence. We then give an equational embedding of 
static arrows into arrow calculus and show that idioms are equationally equivalent 
to static arrows. 

In the arrow calculus, A, computations accept input via the command applica- 
tion operation L*M. The semantics of a computation in S is independent of input. 
We capture this property with an additional command that allows an arrow com- 
putation to be run before supplying it with an input, and an additional equation 
which treats computations with input as equivalent to computations without input. 
Thus static arrow computations are oblivious to their inputs. 

Definition 5.1 The theory Cs of classic arrows with delay is the extension of theory 
C with the constant 

delay : (A ~> B) -► ( W (A B)) 

and the additional laws: 

ir^Si ) force {delay (a)) = a 
(^52) delay {force (a)) = a 

where 

force: {1^{A^ B)) -► B) 

force = A/, arr (Ax. (Q,x)) >;$> first f »> arr {apply) 

Definition 5.2 The theory S of static arrows is the extension of the theory A with 
an additional syntactic construct given by the typing rule: 

r h L : A^B 
T- A h run L ! A -> B 

and the additional laws: 

(061) L*M = let / = run Lin [f M] 

{ob 2 ) run (A*x. [M]) = [Ax. M] 

(063) run {\'x. let y = P in Q) = let y = P in 

let / = run (A*(x, y). Q) in [Ax. / (x, y)] 

Proposition 5.3 The theories of static arrows and classic arrows with delay are 
in equational correspondence: S = Cs- 
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The translations are each extended with an extra clause. 
Static arrows to classic arrows with delay: 



[run LJa = arr (AA. ()) »> delay [L] 



Classic arrows with delay to static arrows: 



{delay} = Xx. X*u. run x 



(By convention we use the variable u to bind variables of type 1.) 

Proposition 5.4 The theories of idioms and static arrows are equationally equiv- 
alent: T ~ S. 

(Here and throughout we elide the definition of the homomorphic translations on 
types and the corresponding type isomorphisms.) 
Idioms to static arrows: 



(V; A h P ! A) = {T} h (P} A : / ((A) - {A}) 
{L • M} A = pure (XI. AA. I (MJ>) <g> {L} 
(run L} A = pure (XI. AA. /) ® {L} 
{[M]} A = pure (AA. {M}) 
(let x = P in Q} A = pure ( Ap. Ag. AA. g (A,p A)) <g> (P]> A <g> {Q) A . 



Ipure} 

am 



Xx. X'u. [x] 

Xh. Aa. X*u. let k = h • () in let x = a • () in [k x] 



Static arrows to idioms 



{X*x. P} = 



I({A}^{B}) 



where 



Type isomorphism on idioms: 




Type isomorphism on static arrows: 



g A ^ B : A^ B ~ 1 ~» (A -> B) 
9a~~*b = Aa. X'u. run a 

= ^' x - let /i = a • () in [/i x] 
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Remark 5.5 The type isomorphism gA~~>B : A~~> B ~ 1 ~» (A — ► P) gives an 
alternative characterisation of static arrows. The type isomorphism and run L are 
inter-definable. The definition of qa~^b in terms of run L is given above. The 
definition of run L in terms of qa-^b follows. 

run L = (qa^b L) • () 

Proposition 5.6 There is an equational embedding of static arrows into arrow 
calculus: S A 

Static arrows to arrows: 

[A<^B] = 1^([A]-[B]) 
[\'x.P} = \'u. [Pj x 

where 

[r;AhP!A] = [r];.h[P] A ![AH[A] 
[L • M] A = let I = [L] • <) in [AA. I [MJ] 
[run L] A = let /i = [L] • () in [AA. fc] 
[[M]] A = [AA. [M\] 

[let x = P in Q] A = let p = [P] A in 

let?= [Q] Al x in [AA. <? (A,p A)] 

[<S] to static arrows: 

{l^*(A—> B)} = {A} ~» 

(A'ti. P]> = A*x. let /i = (P]> in [h x] 

where 

fr; A h P ! if = {T}; (A) h {P} ! (A) 
{L»M} = run (L]> 
fl[M]> = [{M}\ 
(let x = P in Q} = let x = (P} in (Q]) 

Type isomorphism on static arrows: f : A~ A is the identity isomorphism. 



idioms X 



static arrows S ' 



classic arrows 
with delay Cs 



-arrow calculus A 



classic arrows C 
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In summary: idioms are equationally equivalent to static arrows, which embed 
into arrow calculus. 

6 Relating arrows and monads 

In order to compare monads and arrows we consider arrows extended with applica- 
tion. First, we describe Hughes's theory of classic arrows with apply C app by adding 
an extra constant and three laws. We then introduce an extension of the arrow 
calculus, higher-order arrows Tt, that is in equational correspondence with C app , by 
adding one command and two laws. 

An arrow with apply permits us to apply an arrow that is itself yielded by 
another arrow. As explained by Hughes [1] an arrow with apply is equivalent to a 
monad. It is equipped with an additional constant 

app : {A-^> B)xA-^> B 

which is an arrow analogue of function application. 

For the arrow calculus, equivalent structure is provided by a second version of 
arrow application, where the arrow to apply may itself be computed by an arrow. 

F,AhL:A^>B T,AhM:A 
F; A h L * M ! B 

This lifts the central restriction on arrow application. Now the arrow to apply 
may contain free variables in both V and A. We therefore dub arrows with apply 
promiscuous (in the broader sense of undiscriminating) , to highlight the departure 
from the careful maintenance of the distinction between the two environments in 
the standard arrow calculus. Indeed, Moggi's metalanguage for monads is exactly 
like the arrow calculus but with no distinction between V and A, Xx.N and A*x. , 
or L M and L • M, and with A ~* B replaced by A — > M B. 

In this section we re-derive Hughes's result in the arrow calculus to give an 
equational equivalence between monads and arrows with apply. 

Definition 6.1 The theory C app of classic arrows with apply is the extension of 
theory C with the constant 

app : (A^ B)xA-^ B 

and the additional laws: 

(~^zn) first {arr (Ax. arr (Ay. (x, y)))) y>i> app = arr id 

i"^H2) first {arr (#>»)) ^> app = second g »> app 

(^m) first {arr (»>/i)) ^>> app = app >^>> h 

Definition 6.2 The theory 7i of higher-order arrows is the extension of the theory 
A with an additional syntactic construct given by the typing rule: 
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r,AhL:A-v>B r,AhM:A 
T; A h L * M ! B 

with the additional laws: 

(/3 ap f) {\'x. Q)*M = Q[x := M] 

(77^) X'x.(L*x) = L 

Proposition 6.3 The theories of higher- order arrows and classic arrows with apply 
are in equational correspondence: TC = C app . 

The translations are each extended with an extra clause. 

Higher- order arrows to classic arrows with apply: 

[L * M] A = arr (AA. [L] Ml \M\) »> app 
Classic arrows with apply to higher-order arrows: 

{app} = X'p. (fst p) * (snd p) 

Proposition 6.4 The theories of monads and higher-order arrows are equationally 
equivalent: M. ~ 7i. 

Monads to higher-order arrows: 

[MA} = l^[Aj 
^return} = Xx. A*u. [x] 

[(»=)1 = Aa. M*>. X'u. let x = a * () in (h x) * {) 

Higher- order arrows to monads: 

{A^B} = {A}^M{B} 
{X'x. P} = Xx. {P} 

where 

{V; A h P ! A) = (r, A} h {P} : M {A} 
{L*M} = {L} {M} 
{L*M} = {L} (M} 
([M]} = return {M} 
(let x = P in Q} = {P} »= Xx. {Q} 

Type isomorphism on monads: 

f M[A) :MA~l^MA 
fhf(A) = Aa. Xu. a 

f-\ A) = xh. h () 
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Type isomorphism on higher-order arrows: 

9A~~*B ■ A-~> B ~ A -> ( W B) 
9A~~>B = Aa. Ax. \'u. a* x 
9aLb = A/i.A'x. (/i x)*() 

Remark 6.5 The type isomorphism qa~~>b '■ A ~» B ~ ^4 — > (1 ~> JB) gives an 
alternative characterisation of higher-order arrows. The type isomorphism and L*M 
are inter-definable. The definition of g^^B in terms of L * M is given above. The 
definition of L * M in terms of g^^B follows- 

L*M = g^ B )xA^ B ( x P- x ' u - ( fst p) ( snd p)) • ( L > M > 

Proposition 6.6 There is an equational embedding of arrow calculus into higher- 
order arrows: A TL. 

The translation [— ] is the inclusion map from A to 7i, the translation {—} is 
the identity on A, and f is the identity isomorphism. 

Proof. Clearly, [— ] preserves equality, as every equation of A is an equation of 7i. 
It remains to show that {—} preserves equality. 

Both the rewriting theories of the arrow calculus and of higher-order arrows are 
strongly normalising and confluent [4]. We establish that {—} preserves equality by 
examining normal forms. The normal form for arrow calculus commands is: 

let xi = L\ • M\ in . . . let x n = L n • M n in [N] 

where L\, . . . n , Mi, . . . , M n , N are all in normal form. The normal form for higher- 
order arrow calculus commands is: 

let x\ = L\-k M\ in . . . let x n = L n * M n in [N] 

where L\, . . Mi, . . . , M n , N are all in normal form. Since L»M = L*M it is the 
case that both [[— ] and {—} map distinct normal forms to distinct normal forms, 
hence (— ) preserves equality. □ 



arrow calculus A ' 



classic arrows C 



monads M 



■higher-order arrows 7i 



classic arrows with 
application C app 



In summary: monads are equationally equivalent to higher-order arrows, and 
there is an equational embedding of arrow calculus into higher-order arrows. 
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7 Conclusions and future work 

We have characterised idioms, monads and arrows as variations on a single calculus, 
establishing the relative order of strength as idiom, arrow, monad in contrast to 
the putative order of arrow, idiom, monad. The variations that bring the arrow 
calculus into correspondence with idioms and with monads may be characterised 
either by type isomorphisms or by extensions to the equational theory. 

The arrow calculus is the analogue for arrows of Moggi's computational meta- 
language [7] . For the future, we plan to investigate analogues for arrows and idioms 
of the computational lambda calculus [6]. 
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